home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 11 / developer source - volume 11.iso / dbprd / oct97 / morif101.gif < prev    next >
Graphics Interchange Format  |  1998-02-10  |  34KB  |  417x390  |  4-bit (16 colors)
Labels: text | screenshot | number | display
OCR: Fil- Pinjen Bules Vir Qala Ga Wirnims Halt Rule, Gereric System: | insure HOW DYY ADUSTATE DOBOUN PROCEDURE DIVISION USING 000002 CIVPE COURTAGE MEC. AMISTATE .. IF STATE = "ALE EP SELIM SUDIRACI 1B1 FACH COST GIVING COST APARTIR SIIRTRACT 191 PROM #YOUINT GTUING AMOICHT ELSE LE SPORINE-UnH 033611 COMPUTE COST - COST # 1.91 COMPITE ANGIINI . AMOIINT # 1 -151 D23013 ADD 201 TO COGT GIVING COGT ADD 201 TO AMOUNT GTJING ARCIINT 020017 ELSE IF SOBCUNPRUE 089617 SUDIDACT 100 THOM COST GIVING COST SUBIRACT 100 FROM AMOUNT GEVING AMOUNT ELSE 030833 END-IF END-IF 080825 END-1E ELSE FIGURE 1. Regenisys'Assess:R shows the code that enforces a business rule.